EinhugurWord.ListIndent Class

using EinhugurWord

var ft as FileType = new FileType
ft.Extensions = "docx"
ft.Name = "Word Document"

var f as FolderItem = FolderItem.ShowSaveFileDialog(ft, "New document.docx")

if f <> nil then
    try
       var doc as Document = Document.Create(f)
      
       doc.Creator = "Einhugur test user"
       doc.LastModifiedBy = "Einhugur test user"
       doc.Subject = "My first test with indents"
      
      
       var p as Paragraph = doc.AppendParagraph("Bellow we will be making list indent with bullets")
       p.Run(0).Bold = EinhugurWord.BooleanAttribute.YES
      
       var indent as ListIndent = doc.CreateListIndent(true)
      
       p = doc.AppendParagraph("Bullet 1")
       p.SetListIndent(indent, 0)
      
       p = doc.AppendParagraph("Bullet 2")
       p.SetListIndent(indent, 0)
      
       p = doc.AppendParagraph("Bullet 3")
       p.SetListIndent(indent, 0)
      
      
       p = doc.AppendParagraph("We can also add list indents with numbering")
       p.Run(0).Bold = EinhugurWord.BooleanAttribute.YES
      
       indent = doc.CreateListIndent(false)
      
       p = doc.AppendParagraph("Some data 1")
       p.SetListIndent(indent, 0)
      
       p = doc.AppendParagraph("Some data 2")
       p.SetListIndent(indent, 0)
      
       p = doc.AppendParagraph("We can indent some more")
       p.SetListIndent(indent, 1)
      
       p = doc.AppendParagraph("And do more lines on the 2nd level")
       p.SetListIndent(indent, 1)
      
       p = doc.AppendParagraph("Some data 3")
       p.SetListIndent(indent, 0)
      
      
       doc.Save()
      
    catch e as WordException
    MessageBox e.Message
end try
end if